﻿Public Class frmPhieuNhapXe

    Private Sub btnThoatPhieu_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)

        Close()

    End Sub

    Dim dt As New DataTable

    Private Sub frmPhieuNhapXe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DtsNSX2.NSX' table. You can move, or remove it, as needed.
        Me.NSXTableAdapter.Fill(Me.DtsNSX2.NSX)
        'TODO: This line of code loads data into the 'DtsLoaiXe.LOAIXE' table. You can move, or remove it, as needed.
        Me.LOAIXETableAdapter.Fill(Me.DtsLoaiXe.LOAIXE)

        dt = PhieuNhapXeBUS.LoadAtPhieuNhapXe("1")
        GridControlPhieuNhapXe.DataSource = dt

        lbNgayNhapXe.Text = Date.Now.ToShortDateString()

    End Sub

    Private Sub btnLapPhieu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLapPhieu.Click

        Try
            For Each dr As DataRow In dt.Rows
                If dr.RowState = DataRowState.Added Then

                    'Thêm phiếu nhập vào bảng PHIEUNHAP
                    Dim pn As New PhieuNhapXeDTO
                    pn.m_dNgayLap = Date.Now.ToShortDateString()
                    Dim MaPhieuNhap As String = PhieuNhapXeBUS.LapPhieuNhapXe(pn)

                    'Thêm xe hoặc cập nhật số lượng xe nếu tồn tại trong bảng xe
                    Dim xe As New XeDTO
                    xe.m_strTenXe = dr("TenXe").ToString()
                    xe.m_strMaLoaiXe = dr("MaLoaiXe").ToString()
                    xe.m_strMaNSX = dr("MaNSX").ToString()
                    xe.m_iSoLuong = Integer.Parse(dr("SoLuongNhap"))
                    xe.m_dDonGia = Double.Parse(dr("DonGia"))
                    Dim MaXe As String = XeBUS.NhapXe(xe)

                    'Thêm chi tiết phiếu nhập vào bảng CHITIETPHIEUNHAP với mã xe và mã phiếu nhập ở trên
                    Dim ctpn As New ChiTietPhieuNhapXeDTO
                    ctpn.m_strMaXe = MaXe
                    ctpn.m_strMaPhieuNhap = MaPhieuNhap
                    ctpn.m_iSoLuongNhap = Integer.Parse(dr("SoLuongNhap"))
                    ctpn.m_dDonGia = Double.Parse(dr("DonGia"))
                    ctpn.m_dThanhTien = Double.Parse(dr("ThanhTien"))
                    ChiTietPhieuNhapXeBUS.LapChiTietPhieuNhap(ctpn)

                    MessageBox.Show("Lập phiếu thành công.")

                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Lập phiếu thất bại.")
        End Try


    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Close()
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Dim dtXe As DataTable = PhieuNhapXeBUS.LoadAtPhieuNhapXe("1")
        GridControlPhieuNhapXe.DataSource = dtXe
    End Sub
End Class